
*** Figure A.13

clear all

use "Blair_Chu_Schwartz_Study1_Data.dta", clear

twoway (hist chem_all if chem_group==0, percent lcolor(gs12) fcolor(gs12)  legend(label( 1 "Non-Sensitive"))) (hist chem_all if chem_group==1, percent fcolor(none) lcolor(black) legend(label( 2 "Sensitive"))), xtitle("# of List Items Selected") ytitle("Percentage of Respondents")


*** Figure A.14

clear all

use "Blair_Chu_Schwartz_Study2_Data.dta", clear

twoway (hist list if t_chem==1 & treatment==0, percent lcolor(gs12) fcolor(gs12)  legend(label( 1 "Non-Sensitive"))) (hist list if t_chem==1 & treatment==1, percent fcolor(none) lcolor(black) legend(label( 2 "Sensitive"))), xtitle("# of List Items Selected") ytitle("Percentage of Respondents")


*** Figure A.15

clear all

use "Blair_Chu_Schwartz_Study2_Data.dta", clear

twoway (hist list if t_chem==0 & treatment==0, percent lcolor(gs12) fcolor(gs12)  legend(label( 1 "Non-Sensitive"))) (hist list if t_chem==0 & treatment==1, percent fcolor(none) lcolor(black) legend(label( 2 "Sensitive"))), xtitle("# of List Items Selected") ytitle("Percentage of Respondents")
